home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / -archivi / -recent1 / nsm_tnw041b.lha / tracknameswindow / pastetrack.c < prev    next >
C/C++ Source or Header  |  1999-01-09  |  573b  |  43 lines
  1. /*
  2.     Pastes the tracknamebuffer and
  3.     trackbuffer to the current track.
  4.  
  5.     Link with annomanno.o, /octacontrol.o
  6.    and /readstr.o.
  7.  
  8.     Recommended shortcut: Alt+v
  9.  
  10.     Made by Kjetil S. Matheussen 9.1.99.
  11.  
  12.     e-mail: kjetilma@ifi.uio.no
  13.  
  14.     Address:
  15.     Kjetil S. Matheussen
  16.     5423 Sogn Studentby
  17.     0858 Oslo
  18.     Norway
  19. */
  20.  
  21.  
  22.  
  23. #include "tracknameswindow.h"
  24.  
  25. void main(void){
  26.     OCTABASE ob;
  27.  
  28.     UWORD currtrack,currblock;
  29.  
  30.     if((ob=getoctabase())==0) goto exit;
  31.  
  32.     currtrack=getcurrtrack(ob);
  33.  
  34.     sendrexx("RN_PASTE TRACK");
  35.     settracknamedata2(ob,currtrack);
  36.     settracknamedata(ob,SETBUF);
  37.  
  38.  
  39. exit:
  40. }
  41.  
  42.  
  43.